Strategy Challenges Collection/Strategy Challenges Collection.iso/pc/demo/demodata/menu.dxr/00141.ls

Text File | 1996-10-02 | 1.4 KB | 56 lines

on enterFrame
  global gBeenThere, gVoiceFlag
  if gBeenThere = 0 then
    repeat with nn = 3 to 7
      puppetSprite(nn, 1)
    end repeat
    if gVoiceFlag = 0 then
      puppetSound("SubMain.aif")
      set gVoiceFlag to 1
    end if
    set gBeenThere to 1
  end if
end

on exitFrame
  global UserTimer, gAutoMode
  timeOutCheck()
  if gAutoMode then
    goSubAuto()
  else
    go(the frame)
    SubmenuRoll()
  end if
end

on SubmenuRoll
  if the mouseCast > 1 then
    set tempName to the name of cast the mouseCast
    if tempName contains "_Roll" then
      nothing()
    else
      repeat with nn = 2 to 24
        if the castNum of sprite nn < 1 then
          next repeat
        end if
        if the name of cast the castNum of sprite nn contains "_Roll" then
          set tempOld to the name of cast the castNum of sprite nn
          set tempOld to chars(tempOld, 1, length(tempOld) - 5)
          set the castNum of sprite nn to the number of member tempOld
          exit repeat
        end if
      end repeat
      repeat with nn = 2 to 24
        if the castNum of sprite nn < 1 then
          next repeat
        end if
        if the name of cast the castNum of sprite nn = tempName then
          set the castNum of sprite nn to the number of member (tempName & "_Roll")
          exit repeat
        end if
      end repeat
    end if
  end if
  updateStage()
end